home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / p2c4os2.zip / DISTRIB / HP / IMPORT / GENERAL4.IMP < prev    next >
Text File  |  1992-08-03  |  2KB  |  42 lines
  1.  
  2.  
  3. {IncludeFrom=general_4 <general4.h>}
  4.  
  5.  
  6. {*VarStrings=0} {*ExportSymbol=P_%s} {*Export_Symbol=%s}
  7.  
  8.  
  9. module general_4;
  10. import    iodeclarations ;
  11.  
  12. export
  13.  
  14.    procedure abort_transfer ( var b_info: buf_info_type );
  15.    function  transfer_setup ( device    : type_device; t_tfr     : user_tfr_type;
  16.                               t_dir     : dir_of_tfr ; var b_info: buf_info_type ;
  17.                               t_cnt : integer ): type_isc ;
  18.    procedure transfer   ( device    : type_device; t_tfr     : user_tfr_type;
  19.                           t_dir     : dir_of_tfr ; var b_info: buf_info_type;
  20.                           x_count   : integer ) ;
  21.    procedure transfer_word ( device    : type_device; t_tfr     : user_tfr_type;
  22.                              t_dir     : dir_of_tfr ; var b_info: buf_info_type;
  23.                              x_count   : integer ) ;
  24.    procedure transfer_until ( term      : char ; device    : type_device;
  25.                               t_tfr     : user_tfr_type; t_dir     : dir_of_tfr;
  26.                               var b_info: buf_info_type ) ;
  27.    procedure transfer_end ( device    : type_device; t_tfr     : user_tfr_type;
  28.                             t_dir     : dir_of_tfr; var b_info: buf_info_type ) ;
  29.    procedure iobuffer   ( var b_info: buf_info_type ; t_count   : integer );
  30.    procedure buffer_reset(var b_info: buf_info_type ) ;
  31.    function  buffer_space( var b_info: buf_info_type): integer;
  32.    function  buffer_data( var b_info: buf_info_type): integer;
  33.    procedure readbuffer ( var b_info: buf_info_type; var value : char);
  34.    procedure writebuffer( var b_info: buf_info_type; value     : char);
  35.    procedure readbuffer_string( var b_info: buf_info_type; var str   : string;
  36.                                 str_count : integer);
  37.    procedure writebuffer_string ( var b_info: buf_info_type; str       : io_string);
  38.    function  buffer_busy( var b_info: buf_info_type ): boolean;
  39.    function  isc_busy   ( isc       : type_isc ): boolean;
  40. end.
  41.  
  42.